home *** CD-ROM | disk | FTP | other *** search
/ Selling To the Government / Selling to the Government.iso / cdpmenu.cdp < prev    next >
Text File  |  1993-09-02  |  2KB  |  45 lines
  1. ; Installation Script for CDPMenu V1.0-1
  2. ;
  3. ; Step 0 Tell the user what we are doing....
  4. ;
  5. Ask_Warning WarningReturn 121 '~m(1,1,1,1)~hCDPMenu not Installed~nCDPmenu was not previously installed.~nSelect Ok below to install it or Cancel to Abort the program.~n~n~k~i(1)~e   &Ok   ~e  ~d(2)~e &Cancel ~e'
  6. If '@Num(WarningReturn) = 2' then exitfatal
  7. ;
  8. ; Step 1 Get the target directory for the installation
  9. ;
  10. Ask_Value  Target 120 C:\CDP\ '~m(1,1,1,1)~hInstallation Directory~nWhat directory should CDPMenu Install itself to?~nHit enter to accept the default.~n~n~k~I(1)Directory: ~e               ~e'
  11. ;
  12. ; Step 2 Check the directry and if not present create it.
  13. ;
  14. If @IsDir(Target) then DirCreated
  15. MD target
  16. ;
  17. :DirCreated
  18. ;
  19. ; Step 3 Define a logical for target called target to copy the files to
  20. ;
  21. Define_log Target target
  22. ;
  23. ; Step 4 Copy all the Data files from the CDROM directory to the target directory.
  24. ;
  25. Copy CDPData:CDPMENU.DAT Target:CDPMenu.dat
  26. Copy CDPData:CDPMENU.IX Target:CDPMenu.IX
  27. copy CDPData:CDPDoc.Dat Target:CDPMenu.DAT
  28. Copy CDPData:CDPDoc.IX Target:CDPDOC.IX
  29. Copy CDPInstall:*.* Target:*.*
  30. ;
  31. ; Step 5 Check that the user has at least 30 files in config.sys
  32. ;
  33. Check_Files 30
  34. ;
  35. ; Step 6 Check that the user has the CDP env var in place, probly not or we would not be here
  36. ;
  37. Set_Env CDP Target
  38. ;
  39. :NormalExit
  40. Ask_Message CopyProg 0 '~m(1,1,1,1)~w(45)~hCDPMenu will Exit~n~nPlease reboot your computer for changes to take effect.~n~nAfter Rebooting, Change to the CDP directory and type CDPMenu.~n~k~I(1)~eO&k~e'
  41. Exit
  42. ;
  43. :ExitFatal
  44. FatalExit
  45.